library(ggplot2)
library(dplyr)
library(stringr)
library(scales)
library(patchwork)
library(ggrepel)
library(data.table)
library(plotly)
library(tidyverse)

pal1<-read.table('./Source data/pal1.txt')[,1]

load("A1BG.RData")

p<-ggplot(expr.ft,aes(x=UMAP_1,y=UMAP_2))+
  geom_point(aes(color=celltype),size=0.5)+scale_color_manual(values = pal1)+
  theme_classic()+theme(legend.key.size = unit(0.5, "cm"),axis.title = element_blank(),
                        axis.line = element_line(size=0.7),axis.ticks =element_line(size=0.7),
                        legend.title = element_text(face = 'bold'))+
  guides(color = guide_legend( ncol = 1, byrow = F, override.aes = list(size=2), title = 'Cell Type'))
ggsave(plot=p,filename = 'liver_inte_anno_A1BG.pdf',width = 10,height = 8)
